home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / zmime.zprx < prev    next >
Text File  |  1996-07-26  |  3KB  |  139 lines
  1. /*
  2.     $VER: zmime.zprx 1.1 (21.7.96) Copyright (c) Jan Ritzerfeld
  3.  
  4.     Dies ist ein ARexx-Skript für Zodiac's Point und  zmime,  mit  dem
  5.     man  auf  bequeme Weise MIME-Nachrichten von Zodiac's Point aus in
  6.     zmime laden und damit bearbeiten kann.
  7.  
  8.     DISCLAIMER
  9.  
  10.     THIS MATERIAL IS PROVIDED "AS IS" WITHOUT WARRANTY  OF  ANY  KIND,
  11.     EITHER  EXPRESS  OR  IMPLIED,  STATUTORY  OR  OTHERWISE, INCLUDING
  12.     WITHOUT LIMITATION  ANY  IMPLIED  WARRANTIES  OF  NONINFRINGEMENT,
  13.     MERCHANTABILITY  AND  FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE
  14.     RISK AS TO THE USE, RESULTS, AND PERFORMANCE OF THIS  MATERIAL  IS
  15.     ASSUMED  BY  YOU  AND IF THE PRODUCT SHOULD PROVE TO BE DEFECTIVE,
  16.     YOU ASSUME THE ENTIRE COST OF ALL NECESSARY SERVICING, REPAIR,  OR
  17.     OTHER REMEDIATION.
  18.  
  19.     Sie erreichen den Autor wie folgt:
  20.  
  21.        Jan Ritzerfeld         Tel. : +49-2421-65177
  22.        Dornheckweg 9          EMail: johnny@indigo.tng.oche.de
  23.        52355 Düren-Birgel
  24.  
  25.     Nutzungsbedingungen:
  26.  
  27.     Die Urheberrechte  dieses  Skriptes  verbleiben  vollständig  beim
  28.     Autor.    Sie    dürfen   das   Skript   beliebig   kopieren   und
  29.     weiterverteilen,  solange  Sie  für  die  Weitergabe   kein   Geld
  30.     verlangen und das Skript vollständig und unverändert weitergeben!
  31.  
  32.     Hinweise zur Installation:
  33.  
  34.     Kopieren Sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  35.     fügen  Sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  36.     "F1:SYS:Rexxc/RX ZPOINT:Rexx/zmime.zprx %s" hinzu.
  37.  
  38.     History:
  39.  
  40.     1.0 (18.4.96)              Erste Version von Ralph Seichter
  41.                 nur für CygnusED
  42.     1.1 (21.7.96)              Editorunabhängigkeit
  43. */
  44.  
  45. zmime    = "ZPOINT:tools/zmime"
  46. zmimecfg = "ZPOINT:tools/zmime.config"
  47.  
  48. /* Das eigentliche Programm: Änderungen sind nicht mehr gestattet! */
  49.  
  50. options failat 10
  51. signal on syntax
  52.  
  53. call addlib('rexxsupport.library',0,-30,0)
  54.  
  55. parse arg zpPort
  56. if(zpPort == '') then
  57.   zpPort = 'ZPoint'
  58. address value zpPort
  59. options results
  60. 'GUILOCK TEXT="Einen Moment bitte..."'
  61.  
  62. temp = 'T:zm'pragma('I')
  63. call delete(temp)
  64.  
  65. WHICHLEVEL
  66. if(result ~= 'BOARD') then
  67.   do
  68.   REQUESTNOTIFY 'Dieses Skript macht nur im Nachrichtenmenü Sinn'
  69.   GUILOCK OFF
  70.   exit
  71.   end
  72.  
  73. SAVEMESSAGEBODY temp
  74. if(~rc) then
  75.   do
  76.   REQUESTNOTIFY 'Konnte Nachricht nicht abspeichern'
  77.   GUILOCK OFF
  78.   exit
  79.   end
  80. 'GUILOCK TEXT="Einen Moment bitte..."'
  81.  
  82. linenr = 0
  83. if(open('Msg',temp,'R')) then
  84.   do
  85.     do while(linenr < 15)
  86.     line = readln('Msg')
  87.     if(left(line,2) == '--') then
  88.       do
  89.       linenr = 99
  90.       boundary = substr(line,3)
  91.       end
  92.     else
  93.       linenr = linenr + 1
  94.     end
  95.   call close('Msg')
  96.   end
  97.  
  98. call delete(temp)
  99.  
  100. if(linenr ~= 99) then
  101.   do
  102.   REQUESTNOTIFY 'Konnte kein "boundary" finden'
  103.   GUILOCK OFF
  104.   exit
  105.   end
  106.  
  107. if(open('Msg',temp,'W')) then
  108.   do
  109.   call writeln('Msg','MIME-Version: 1.0')
  110.   call writeln('Msg','Content-Type: multipart/mixed; boundary="'boundary'"')
  111.   call writeln('Msg','')
  112.   call close('Msg')
  113.   end
  114.  
  115. SAVEMESSAGEBODY temp
  116. if(~rc) then
  117.   do
  118.   REQUESTNOTIFY 'Konnte Nachricht nicht abspeichern'
  119.   GUILOCK OFF
  120.   exit
  121.   end
  122. 'GUILOCK TEXT="Einen Moment bitte..."'
  123.  
  124. address command zmime 'FILE' temp 'PUBSCREEN' zpPort 'CONFIG' zmimecfg
  125.  
  126. call delete(temp)
  127.  
  128. GUILOCK OFF
  129.  
  130. exit
  131.  
  132.  
  133. syntax: /* Ein Fehler ist aufgetreten ! */
  134.  
  135. REQUESTNOTIFY 'Schade auch, Fehler in Zeile' sigl ':' errortext(rc) ':-('
  136. GUILOCK OFF
  137.  
  138. exit
  139.